home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / boot / codePW_2_1.lha / codepw 2.1 / english / delete codePW 2.1 next >
Text File  |  1997-11-23  |  902b  |  43 lines
  1. ; codePW 2.1 delete by Jürgen Einrauch 01. November 1997      
  2. failat 21
  3.  
  4. echo "  *n*e[32m  ___________________________________________________*e[0m"
  5. echo "  *e[43m                                                   *e[0m"
  6. echo "  *e[28;43m       Version 2.1             delete codePW       *e[0m"
  7. echo "  *e[43m___________________________________________________*e[0m*n"
  8.  
  9. IF NOT EXISTS SYS:S/codePW
  10. echo "*n   File codePW not found."
  11. echo "   Delete aborted."
  12. WAIT 2 secs
  13. EndCLI >NIL:
  14. quit
  15. ELSE
  16. echo noline "*n   Would you delete codePW now? (yes/no): "
  17. set > nil: in ?
  18. IF $in eq "ja"
  19.   skip start
  20. endif
  21. IF $in eq "j"
  22.   skip start
  23. endif
  24. IF $in eq "y"
  25.   skip start
  26. endif
  27. IF $in eq "yes"
  28.   skip start
  29. endif
  30. echo noline "*n   Delete aborted."
  31. EndCLI >NIL:
  32. quit
  33. endif
  34.  
  35. lab start
  36. echo "*n   Delete codePW now."
  37. echo "   Please wait 2 seconds ....."
  38. delete >nil: s:codePW
  39. endif
  40. WAIT 2 secs
  41. EndCLI >NIL:
  42. quit
  43.